home *** CD-ROM | disk | FTP | other *** search
/ Big Cock 7 / Big Cock 7 - Disc 1.iso / pc / main.dxr / 00082_MAIN LOOP.ls < prev    next >
Encoding:
Text File  |  1996-10-17  |  705 b   |  34 lines
  1. on enterFrame
  2.   go("tune")
  3. end
  4.  
  5. on exitFrame
  6.   global hour, minute, gjusttunepoint
  7.   if gjusttunepoint and (the lastClick > 60) then
  8.     ugettime()
  9.     set buff to ugettimetalbe(hour, minute, gjusttunepoint)
  10.     if gjusttunepoint = 5 then
  11.       puppetSound("CRICK.AIF1")
  12.       updateStage()
  13.       repeat while soundBusy(1)
  14.         updateStage()
  15.       end repeat
  16.       sound stop 2
  17.       set the puppet of sprite 8 to 0
  18.       go(buff)
  19.     else
  20.       puppetSound("CRICK.AIF1")
  21.       updateStage()
  22.       repeat while soundBusy(1)
  23.         updateStage()
  24.       end repeat
  25.       sound stop 2
  26.       set the puppet of sprite 8 to 0
  27.       unLoad()
  28.       go(1, buff)
  29.     end if
  30.   else
  31.     go(the frame)
  32.   end if
  33. end
  34.